0 PRINT"[147]":LIST999-
1 FLOPPY=8:DRUCKER=4:SEC=1
10 PRINT"[154]SETUP FUER PFOX-TREIBER: 24MICRO.":PRINT
20 PRINT"SOLL DER DRUCKERTREIBER ALS":PRINT"'P[146][154]RINTER' ODER 'PR-[146][154]24MICRO'"
30 INPUT"GESPEICHERT WERDEN";N$:IFN$<>"-"ANDN$<>"P"THENRUN
40 IFN$="P"THEN100
50 INPUT"LOESCHE ALTE VERSION J/N";N$:IFN$="N"THENEND
60 OPEN15,FLOPPY,15,"S:PR-24MICRO"
70 PRINT"HOFFENTLICH GELOESCHT."
80 PRINT#15,"C:PR-24MICRO=24MICRO":CLOSE15
90 OPEN2,FLOPPY,2,"PR-24MICRO,P,A":GOTO 120
100 OPEN15,FLOPPY,15,"C:PRINTER=24MICRO":CLOSE15
110 OPEN2,FLOPPY,2,"PRINTER,P,A"
120 PRINT#2,CHR$(DRUCKER)CHR$(SEC);
130 READDP$:PRINT#2,CHR$(VAL(DP$));:DP$="":CN=7
140 READ DC$:IFDC$="_"THEN170
150 DP$=DP$+CHR$(VAL(DC$))
160 GOTO140
170 PRINT#2,CHR$(LEN(DP$))DP$;:CN=CN-1
180 DP$="":IFCNTHEN140
190 CLOSE2:PRINT"FERTIG."
999 REM     640/180 ZOLL                RELATIVE BEWEGUNG? 0=NEIN , 1=JA
1000 DATA 1
1099 REM      8/180 ZOLL                ZEILENABSTAND!;DRUCKRICHTUNG,CR+LF ...
1100 DATA27,101,86,0,1,6,27,85,49,_
1199 REM                                GRAFIKMODUS 1/180 ZOLL;640 SPALTEN
1200 DATA27,42,39,128,2,_
1299 REM                                ZEILENVORSCHUB
1300 DATA13,_
1399 REM                                TABULIEREN ODER BELIEBIGE SPACES
1400 DATA27,36,100,0,_
1499 REM                                CODE UM PAPIER 400/180 ZOLL VORBEWEGEN
1500 DATA27,101,106,8,0,0,_
1599 REM                                CODE UM PAPIER 400/180 ZOLL RUECKBEW.
1600 DATA27,101,74,8,0,0,_
1699 REM    640/180 ZOLL                CODE RELATIVE BEWEGUNG NACH RECHTS
1700 DATA27,101,82,43,6,4,0
1710 DATA27,101,82,43,6,4,0 ,_
2000 REM 24-NADELTREIBER FUER PRINTFOX
2100 REM SOURCECODE ERHAELTLICH BEI:
2200 REM     OLAF HERING
2300 REM     MARIENSTR.2
2400 REM     72461 ALBSTADT
2500 REM DISK + 10 DM INKL. PORTO
2600 REM
2700 REM START MIT: RUN 1